Aminet 22/Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso/Aminet/dev/src/ConfigFileSrc.lha/ConfigFileSrc12/Library/LibCode.c

C/C++ Source or Header | 1997-10-02 | 3.9 KB | 226 lines

/*
**        $PROJECT: ConfigFile.library
**        $FILE: LibCode.c
**        $DESCRIPTION: Code for library init, open and close.
**
**        (C) Copyright 1996-1997 Marcel Karas
**             All Rights Reserved.
*/

LibCall struct CFBase *    LibInit ( REGA0 BPTR, REGD0 struct CFBase *, REGA6 struct ExecBase * );
LibCall struct CFBase * LibOpen ( REGA6 struct CFBase * );
LibCall BPTR                LibExpunge ( REGA6 struct CFBase * );
LibCall BPTR                LibClose ( REGA6 struct CFBase * );
LONG                             LibNull ( VOID );

extern UBYTE __far    LibName[],
                            LibID[];

struct ExecBase    * SysBase = 0;
struct DosLibrary    * DOSBase = 0;
struct Library        * UtilityBase = 0;

APTR LibVectors[] =
{
    LibOpen,
    LibClose,
    LibExpunge,
    LibNull,

    cf_Open,
    cf_Close,

    cf_Read,
    cf_Write,

    cf_AddGroup,
    cf_AddArgument,
    cf_AddItem,

    cf_NewGroup,
    cf_NewArgument,
    cf_NewItem,
    cf_NewArgItem,

    cf_DisposeGroup,
    cf_DisposeArgument,
    cf_DisposeItem,

    cf_CloneGroup,
    cf_CloneArgument,
    cf_CloneItem,

    cf_RemoveGroup,
    cf_RemoveArgument,
    cf_RemoveItem,

    cf_ClearGrpList,
    cf_ClearArgList,
    cf_ClearItemList,

    cf_ChangeGroup,
    cf_ChangeArgument,
    cf_ChangeItem,

    cf_FindGroup,
    cf_FindArgument,
    cf_FindItem,

    cf_GetItem,
    cf_GetItemNum,

    cf_LockGrpList,
    cf_LockArgList,
    cf_LockItemList,

    cf_UnlockGrpList,
    cf_UnlockArgList,
    cf_UnlockItemList,

    cf_NextGroup,
    cf_NextArgument,
    cf_NextItem,

    cf_LastGroup,
    cf_LastArgument,
    cf_LastItem,

    cf_OpenPS,

    cf_GetItemType,
    cf_GetItemSType,

    cf_GetGrpName,
    cf_GetArgName,

    cf_GetHdrOfGrp,
    cf_GetGrpOfArg,
    cf_GetArgOfItem,

    cf_GetItemOnly,

    (APTR)-1
};

struct { ULONG DataSize; APTR Table; APTR Data; struct CFBase * (*Init)(); }
__aligned LibInitTab =
{
    sizeof(struct CFBase),
    LibVectors,
    NULL,
    LibInit
};

    /* LibInit():
     *
     *    Initialize the library.
     */

LibCall struct CFBase *
LibInit ( REGA0 BPTR LibSegment, REGD0 struct CFBase * CFBase, REGA6 struct ExecBase * ExecBase )
{
    CFBase->LibNode.lib_Node.ln_Type    = NT_LIBRARY;
    CFBase->LibNode.lib_Node.ln_Name    = LibName;
    CFBase->LibNode.lib_Node.ln_Pri    = 100;
    CFBase->LibNode.lib_Flags            = LIBF_CHANGED | LIBF_SUMUSED;
    CFBase->LibNode.lib_Version        = VERSION;
    CFBase->LibNode.lib_Revision        = REVISION;
    CFBase->LibNode.lib_IdString        = LibID;

    CFBase->Segment = LibSegment;

    SysBase = ExecBase;

    if ( SysBase->LibNode.lib_Version < 36 )
        return (NULL);

    return (CFBase);
}

    /* LibOpen():
     *
     *    Open the library, as called via OpenLibrary()
     */

LibCall struct CFBase *
LibOpen ( REGA6 struct CFBase * CFBase )
{
    CFBase->LibNode.lib_OpenCnt++;
    CFBase->LibNode.lib_Flags &= ~LIBF_DELEXP;

    if ( CFBase->LibNode.lib_OpenCnt == 1 )
    {
        DOSBase        = TaggedOpenLibrary (TLIB_DOS);
        UtilityBase    = TaggedOpenLibrary (TLIB_UTILITY);
/*
        Printf ("sizeof(iCFHeader)   = %ld\n", sizeof(iCFHeader));
        Printf ("sizeof(iCFGroup)    = %ld\n", sizeof(iCFGroup));
        Printf ("sizeof(iCFArgument) = %ld\n", sizeof(iCFArgument));
        Printf ("sizeof(iCFItem)     = %ld\n", sizeof(iCFItem));
*/
        return (CFBase);
    }
    else
        return (CFBase);
}

    /* LibExpunge();
     *
     *    Expunge the library, remove it from memory
     */

LibCall BPTR
LibExpunge ( REGA6 struct CFBase * CFBase )
{
    if ( !CFBase->LibNode.lib_OpenCnt ) // If OpenCnt Null
    {
        BPTR TempSegment = CFBase->Segment;

        Remove (CFBase);

        FreeMem ((BYTE *)CFBase-CFBase->LibNode.lib_NegSize,
                    CFBase->LibNode.lib_NegSize+CFBase->LibNode.lib_PosSize);

        return (TempSegment);
    }
    else
    {
        CFBase->LibNode.lib_Flags |= LIBF_DELEXP;

        return (NULL);
    }
}

    /* LibClose();
     *
     *    Close the library, as called by CloseLibrary()
     */

LibCall BPTR
LibClose ( REGA6 struct CFBase *CFBase )
{
    if ( CFBase->LibNode.lib_OpenCnt )
        CFBase->LibNode.lib_OpenCnt --;

    if ( !CFBase->LibNode.lib_OpenCnt )
    {
        CloseLibrary (DOSBase);
        CloseLibrary (UtilityBase);

        if ( CFBase->LibNode.lib_Flags & LIBF_DELEXP )
            return (LibExpunge (CFBase));
    }

    return (NULL);
}

    /* LibNull();
     *
     *    Mandatory dummy function
     */

LONG LibNull (VOID)
{
    return (NULL);
}